inherited frmBatchInput: TfrmBatchInput
  Left = 559
  Top = 305
  Caption = #20179#24211#20837#24211#31649#29702
  ClientHeight = 512
  ClientWidth = 1080
  PixelsPerInch = 96
  TextHeight = 12
  inherited tbdChildFormDock: TTBDock
    Width = 1080
    inherited tbrChildToolBar: TTBToolbar
      DockPos = 0
      object btnRefresh: TTBItem [0]
        Action = actRefresh
        DisplayMode = nbdmImageAndText
      end
      object TBItem1: TTBItem [1]
        Action = actAddBatch
        DisplayMode = nbdmImageAndText
      end
      object TBItem3: TTBItem [2]
        Action = actAddBatchDetail
        DisplayMode = nbdmImageAndText
      end
      object TBItem4: TTBItem [3]
        Action = actSave
        DisplayMode = nbdmImageAndText
      end
      object TBItem5: TTBItem [4]
        Action = actDel
        DisplayMode = nbdmImageAndText
      end
      object TBItem2: TTBItem [5]
        Action = actPrint
        DisplayMode = nbdmImageAndText
      end
    end
  end
  object pnl1: TPanel [1]
    Left = 0
    Top = 42
    Width = 1080
    Height = 343
    Align = alTop
    Color = 16643306
    TabOrder = 1
    object lbl7: TLabel
      Left = 24
      Top = 8
      Width = 68
      Height = 16
      Caption = #20837#24211#27719#24635
      Color = clGradientInactiveCaption
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object lbl8: TLabel
      Left = 8
      Top = 272
      Width = 68
      Height = 16
      Caption = #20837#24211#26126#32454
      Color = clMenuHighlight
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object lbl9: TLabel
      Left = 36
      Top = 308
      Width = 56
      Height = 14
      Caption = #26465#30721#36755#20837
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object pnl2: TPanel
      Left = 1
      Top = 40
      Width = 1078
      Height = 112
      Align = alTop
      Color = 16643306
      TabOrder = 0
      object lbl1: TLabel
        Left = 36
        Top = 75
        Width = 56
        Height = 14
        Caption = #21830#21697#31867#21035
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object lbl2: TLabel
        Left = 251
        Top = 75
        Width = 28
        Height = 14
        Caption = #21333#20301
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object lbl3: TLabel
        Left = 374
        Top = 75
        Width = 42
        Height = 14
        Caption = #24635#25968#37327
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object lbl4: TLabel
        Left = 36
        Top = 41
        Width = 56
        Height = 14
        Caption = #20837#24211#25209#27425
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object lbl5: TLabel
        Left = 364
        Top = 41
        Width = 56
        Height = 14
        Caption = #26126#32454#24207#21495
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object lbl6: TLabel
        Left = 8
        Top = 7
        Width = 68
        Height = 16
        Caption = #20837#24211#27719#24635
        Color = clMenuHighlight
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
      object Label1: TLabel
        Left = 526
        Top = 75
        Width = 42
        Height = 14
        Caption = #20837#24211#20215
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object edtinputno: TtsDBEdit
        Left = 104
        Top = 38
        Width = 246
        Height = 20
        DataField = 'batch_input_no'
        DataSource = dsBatch
        Enabled = False
        TabOrder = 0
        ListField = '_lookup'
        LookUpKeyField = #32534#30721
        LookUpResultField = #21517#31216
        LookupParams = <>
        ScrollParams = <>
        FilterParams = <>
        AutoScroll = True
        DBGridAutoDropDown = False
        NullValueKey = 27
      end
      object edtsno: TtsDBEdit
        Left = 423
        Top = 38
        Width = 78
        Height = 20
        DataField = 'sno'
        DataSource = dsBatch
        Enabled = False
        TabOrder = 1
        ListField = '_lookup'
        LookUpKeyField = #32534#30721
        LookUpResultField = #21517#31216
        LookupParams = <>
        ScrollParams = <>
        FilterParams = <>
        AutoScroll = True
        DBGridAutoDropDown = False
        NullValueKey = 27
      end
      object edtunit: TListDbEdit
        Left = 284
        Top = 72
        Width = 65
        Height = 20
        DataField = 'unit_type'
        DataSource = dsBatch
        TabOrder = 3
        ListKey = 32
        ListShift = []
        IsFouceShowID = True
        IsEsc = True
      end
      object dbedtqty: TDBEdit
        Left = 422
        Top = 72
        Width = 79
        Height = 20
        DataField = 'qty'
        DataSource = dsBatch
        TabOrder = 4
      end
      object edtitemtype: TListDbEdit
        Left = 105
        Top = 72
        Width = 121
        Height = 20
        DataField = 'item_type'
        DataSource = dsBatch
        TabOrder = 2
        ListKey = 32
        ListShift = []
        IsFouceShowID = True
        IsEsc = True
      end
      object dbedtUnitPrice: TDBEdit
        Left = 574
        Top = 72
        Width = 79
        Height = 20
        DataField = 'unit_price'
        DataSource = dsBatch
        TabOrder = 5
      end
    end
    object edtBarcode: TEdit
      Left = 104
      Top = 305
      Width = 169
      Height = 20
      TabOrder = 1
      OnKeyDown = edtBarcodeKeyDown
    end
    object pnl3: TPanel
      Left = 1
      Top = 1
      Width = 1078
      Height = 39
      Align = alTop
      Color = 16643306
      TabOrder = 2
      object lbl10: TLabel
        Left = 16
        Top = 11
        Width = 35
        Height = 14
        Caption = #26597#35810':'
        Color = clBtnFace
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object lbl12: TLabel
        Left = 313
        Top = 11
        Width = 28
        Height = 14
        Caption = #26465#30721
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object lbl11: TLabel
        Left = 64
        Top = 11
        Width = 28
        Height = 14
        Caption = #26085#26399
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object lbl13: TLabel
        Left = 187
        Top = 12
        Width = 6
        Height = 12
        Caption = '~'
      end
      object sdtBarcode: TEdit
        Left = 345
        Top = 8
        Width = 145
        Height = 20
        TabOrder = 0
      end
      object edtEndDate: TDateEdit
        Left = 200
        Top = 8
        Width = 88
        Height = 21
        NumGlyphs = 2
        TabOrder = 1
      end
      object edtBeginDate: TDateEdit
        Left = 96
        Top = 8
        Width = 89
        Height = 21
        NumGlyphs = 2
        TabOrder = 2
      end
    end
    object dbgrd2: TDBGrid
      Left = 1
      Top = 152
      Width = 1078
      Height = 113
      Align = alTop
      DataSource = dsBatch
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -14
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'batch_input_no'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'sno'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'item_type'
          Visible = False
        end
        item
          Expanded = False
          FieldName = 'type_name'
          Width = 68
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'unit_type'
          Visible = False
        end
        item
          Expanded = False
          FieldName = 'qty'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'unit_name'
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'operate_username'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'operate_datetime'
          Visible = True
        end>
    end
  end
  object stat2: TStatusBar [2]
    Left = 0
    Top = 493
    Width = 1080
    Height = 19
    Panels = <
      item
        Width = 80
      end
      item
        Width = 50
      end>
  end
  object dbgrd1: TDBGrid [3]
    Left = 0
    Top = 385
    Width = 1080
    Height = 108
    Align = alClient
    DataSource = dsBatch_detail
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'barcode'
        Title.Alignment = taCenter
        Width = 116
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'operate_user'
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'operate_user_name'
        Title.Alignment = taCenter
        Width = 125
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'operate_datetime'
        Title.Alignment = taCenter
        Visible = True
      end>
  end
  inherited aclChild: TActionList
    Left = 768
    Top = 48
    object actAddBatch: TAction
      Caption = #26032#22686#25209#27425
      Hint = #26032#22686#25209#27425
      ImageIndex = 10
      OnExecute = actAddBatchExecute
    end
    object actAddBatchDetail: TAction
      Caption = #26032#22686#25209#27425#26126#32454
      Hint = #26032#22686#25209#27425#26126#32454
      ImageIndex = 10
      OnExecute = actAddBatchDetailExecute
    end
    object actRefresh: TAction
      Caption = #21047#26032
      Hint = #21047#26032
      ImageIndex = 3
      OnExecute = actRefreshExecute
    end
    object actPrint: TAction
      Caption = #26465#30721#21015#21360
      Hint = #26465#30721#21015#21360
      ImageIndex = 40
      OnExecute = actPrintExecute
    end
    object actSave: TAction
      Caption = #20445#23384
      ImageIndex = 11
      OnExecute = actSaveExecute
    end
    object actDel: TAction
      Caption = #21024#38500
      ImageIndex = 6
      OnExecute = actDelExecute
    end
  end
  inherited img32: TImageList
    Left = 800
    Top = 48
  end
  inherited imgToolBar: TTBImageList
    Left = 736
    Top = 48
  end
  inherited imgToolBar16: TTBImageList
    Left = 736
    Top = 96
  end
  inherited img16: TImageList
    Left = 800
    Top = 96
  end
  inherited timAfterFromCreate: TTimer
    Left = 807
    Top = 148
  end
  object dsBatch: TDataSource
    DataSet = cdsBatch_input
    Left = 664
    Top = 258
  end
  object cdsBatch_input: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspBatch_input'
    BeforePost = cdsBatch_inputBeforePost
    AfterScroll = cdsBatch_inputAfterScroll
    OnNewRecord = cdsBatch_inputNewRecord
    Left = 664
    Top = 202
    object strngfldBatchbatch_no: TStringField
      DisplayLabel = #25209#27425#32534#21495
      FieldName = 'batch_input_no'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 18
    end
    object cdsBatch_inputsno: TIntegerField
      DisplayLabel = #24207#21495
      FieldName = 'sno'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object strngfldBatchunit_type: TStringField
      DisplayLabel = #21333#20301#32534#21495
      DisplayWidth = 10
      FieldName = 'unit_type'
      Size = 10
    end
    object cdsBatch_inputqty: TIntegerField
      DisplayLabel = #25968#37327
      FieldName = 'qty'
    end
    object dtmfldBatch_inputoperate_datetime: TDateTimeField
      DisplayLabel = #25805#20316#26102#38388
      FieldName = 'operate_datetime'
    end
    object strngfldBatch_inputoperater_user: TStringField
      DisplayLabel = #25805#20316#20154
      DisplayWidth = 12
      FieldName = 'operate_user'
      Size = 12
    end
    object cdsBatch_inputunit_price: TFloatField
      FieldName = 'unit_price'
    end
    object strngfldBatch_inputitem_type: TStringField
      DisplayLabel = #21830#21697#31867#21035
      FieldName = 'item_type'
      FixedChar = True
      Size = 10
    end
    object strngfldBatch_inputunitname: TStringField
      DisplayLabel = #21333#20301
      FieldKind = fkLookup
      FieldName = 'unit_name'
      LookupDataSet = dmPub.cdsUnitDic
      LookupKeyFields = 'code'
      LookupResultField = 'name'
      KeyFields = 'unit_type'
      Size = 40
      Lookup = True
    end
    object cdsBatch_inputtype_name: TStringField
      DisplayLabel = #21830#21697#21517#31216
      FieldKind = fkLookup
      FieldName = 'type_name'
      LookupDataSet = dmPub.cdsItemCode
      LookupKeyFields = 'code'
      LookupResultField = 'name'
      KeyFields = 'item_type'
      Size = 40
      Lookup = True
    end
    object cdsBatch_inputoperate_username: TStringField
      DisplayLabel = #25805#20316#21592
      FieldKind = fkLookup
      FieldName = 'operate_username'
      LookupDataSet = dmPub.cdsUser
      LookupKeyFields = 'emp_no'
      LookupResultField = 'emp_sn'
      KeyFields = 'operate_user'
      Size = 10
      Lookup = True
    end
  end
  object dsBatch_detail: TDataSource
    DataSet = cdsBatch_input_detail
    Left = 776
    Top = 440
  end
  object cdsBatch_input_detail: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspBatch_input_detail'
    AfterOpen = cdsBatch_input_detailAfterOpen
    BeforePost = cdsBatch_inputBeforePost
    Left = 776
    Top = 392
    object strngfldBatch_input_detailbarcode: TStringField
      DisplayLabel = #21830#21697#26465#30721
      FieldName = 'barcode'
      Size = 18
    end
    object strngfldBatch_input_detailbatch_input_no: TStringField
      FieldName = 'batch_input_no'
      Size = 16
    end
    object cdsBatch_input_detailsno: TIntegerField
      Alignment = taCenter
      DisplayLabel = #24207#21495
      FieldName = 'sno'
    end
    object dtmfldBatch_input_detailoperate_datetime: TDateTimeField
      DisplayLabel = #25805#20316#26102#38388
      FieldName = 'operate_datetime'
    end
    object strngfldBatch_input_detailoperate_user: TStringField
      DisplayLabel = #25805#20316#21592
      DisplayWidth = 12
      FieldName = 'operate_user'
      Size = 12
    end
    object cdsBatch_input_detailoperate_user_name: TStringField
      DisplayLabel = #25805#20316#20154
      FieldKind = fkLookup
      FieldName = 'operate_user_name'
      LookupDataSet = dmPub.cdsUser
      LookupKeyFields = 'emp_no'
      LookupResultField = 'emp_sn'
      KeyFields = 'operate_user'
      Size = 10
      Lookup = True
    end
  end
  object qryBatch_input: TADOQuery
    Connection = dmPub.adcConn
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM dbo.hp_batch_input (nolock)')
    Left = 663
    Top = 96
  end
  object dspBatch_input: TDataSetProvider
    DataSet = qryBatch_input
    Left = 663
    Top = 152
  end
  object qryBatch_input_detail: TADOQuery
    Connection = dmPub.adcConn
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM dbo.hp_batch_input_detail (nolock)')
    Left = 775
    Top = 272
  end
  object dspBatch_input_detail: TDataSetProvider
    DataSet = qryBatch_input_detail
    Left = 775
    Top = 336
  end
  object spProBatchInputCHK: TADOStoredProc
    Connection = dmPub.adcConn
    ProcedureName = 'Pro_GetBatchInputCHK;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@barcode'
        Attributes = [paNullable]
        DataType = ftString
        Size = 18
        Value = Null
      end
      item
        Name = '@ErrorMsg'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 200
        Value = Null
      end>
    Left = 664
    Top = 336
  end
end
